home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / EXAMPLE_PROGRAMS / example06.AMOS / example06.amosSourceCode
Encoding:
AMOS Source Code  |  1992-03-06  |  929 b   |  31 lines
  1. '=============== 
  2. 'Example6.Amos 
  3. '=============== 
  4.  
  5. Rem A short program to demonstrate some of the commands we have learnt.
  6.  
  7. Rem Turn off the text cursor and HIDE the mouse pointer  
  8. '----------------------------------------------------------------------  
  9. Curs Off 
  10. Hide 
  11.  
  12. Rem Now the actual meat of the program 
  13. '--------------------------------------
  14. Rem Run a FOR NEXT loop from 0 to 15 
  15. '--------------------------------------
  16. For A=0 To 15
  17.  
  18. Rem Clear the screen using A as the colour, first of all A=0 then continues    
  19. Rem up to and including 15 
  20. '----------------------------------------- 
  21. Cls A
  22.  
  23. Rem PRINT a message, don't worry about the ;A  we will be covering that soon.
  24. '----------------------------------------------------------------------------- 
  25. Print "SCREEN CLEARED TO COLOUR ";A
  26.  
  27. Rem WAIT long enough so the user can read the message  
  28. '------------------------------------------------------
  29. Wait 75
  30.  
  31. Next A